* lisp/subr.el (read-passwd): Don't delete return value (Bug#22027).

diff --git a/lisp/subr.el b/lisp/subr.el
index 0dce02de8ba9ec292a33e8cdc742b596f16ee2a7..ef00286b341a44760d78c9b002dcd7197bc3029d 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2268,7 +2268,7 @@ by doing (clear-string STRING)."
                 (second (read-passwd "Confirm password: " nil default)))
             (if (equal first second)
                 (progn
-                  (and (arrayp second) (clear-string second))
+                  (and (arrayp second) (not (eq first second)) (clear-string second))
                   (setq success first))
               (and (arrayp first) (clear-string first))
               (and (arrayp second) (clear-string second))